getNclust=function(xx) {
  result=vector()
  for (i in 1:length(xx)) {
    result=c(result,length(unique(xx[[i]]$clustervar[[1]])))
  }
  result
}